Top 10k strings from Matrix Operations (1983)(University Software).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /
Back to the directory listing
3 ;"matrix 2:":
2 a(i,j)=a(i,r+j)
2 ;"matrix:":
2 ;"matrix 1:":
2 ("matrix elements:"," row ";(i);",column ";(j);": ");x:
2 "want to change data?(y/n) ";
2 "row:";i;",column:";j:
1 z=(-a(i,k+d))/a(k,k+d):
1 w=a(k,o+d)+a(i,o+d):
1 w=a(k,m)+a(i,m):
1 value of scalar: K
1 t$="value of scalar: ":
1 s=z*a(k,j+d)+a(i,j+d):
1 s=a(i,k)/a(k,k):
1 h=h*a(k,k+d):
1 e=e+a(i,k)*b(k,j):
1 e=a(i,j)-b(i,j)
1 e=a(i,j)+b(i,j)
1 e=a(i,j)*n
1 b(i,j)=a(i,r+j)
1 b(i,j)=a(i,j):
1 b(i,j)=a(i,d+j)
1 a(k,o+d)=w:
1 a(k,k+d)<1e-8
1 a(k,k)<1e-8
1 a(k,j)=a(k,j)/z:
1 a(i,r+j)=0
1 a(i,r+i)=1
1 a(i,k+d)>1e-8
1 a(i,k)>1e-8
1 a(i,j+d)=s:
1 a(i,j+d)=a(i,j):
1 a(i,j)=b(i,j):
1 a(i,j)=a(i,j)-s*a(k,j):
1 a(i,j)=a(i,d+j)
1 a(i,d+j)=e
1 MATRIX OPERATIONS
1 ;b(i,j);" ";:
1 ;a(i,j);" ";:
1 ;"to invert matrix must be square":
1 ;"singular matrix":
1 ;"singular matrix"
1 ;"no of rows must be equal to
1 ;"no of columns of matrix 1 must be equal to no of rows of mat.2":
1 ;"matrix X scalar:"
1 ;"matrix 1:"
1 ;"matrix 1 and matrix 2 dimensionsmust be equal"
1 ;"matrix 1 X matrix 2:"
1 ;"matrix 1 - matrix 2:"
1 ;"matrix 1 + matrix 2:"
1 ;"inverse:":
1 ;"for determinant matrix should besquare":
1 ;"enter new dimensions":
1 ;"cannot be inverted":
1 ;"Determinant: ";:
1 (h*a(r,r+d)*1e5
1 (b(i,j)*1e6
1 (a(i,r+j)*1e6
1 (a(i,j)*1e6
1 ("value of element (";i;",";j;"): ");b(i,j)
1 ("value of element (";i;",";j;"): ");a(i,j)
1 ("matrix dimensions:","
1 ("matrix ";(m);" dimensions:","
1 ("choose no of new matrix(1/2): ");m:
1 "s:subtraction"
1 "operations"
1 "m:multiplication"
1 "l:scalar multiplication"
1 "i:inversion"
1 "i,m,a,s,l,d,(h).z:copy,r:input";
1 "d:determinant"
1 "a:addition"
1 "In case of difficulty in
1 "After each operation one of the following letters can directly be entered for the next
1 remembering the correct letter enter h (abbreviated for help).":
1 operation."
1 no of columns":
1 DTDT<D 0DD
1 Copyright 1983 University Software **
1 <T<T<< 8D
1 (row,column): ");r(m);",";c(m)
1 (row,column): ");r(1